      SUBROUTINE BLKCPY(MATFRM,NROWFRM,NCOLFRM,MATTAR,NROWTAR,NCOLTAR,
     &                  IROWTAR,ICOLTAR)
C
C THIS ROUTINE COPIES AN NROWFRM BY NCOLFRM BLOCK MATRIX (MATFRM)
C  INTO AN NROWTAR BY NCOLTAR TARGET MATRIX (MATTAR) SUCH THAT 
C  THE (1,1) ELEMENT IN MATFRM BECOMES THE IROWTAR,ICOLTAR ELEMENT 
C  IN MATTAR.
C
CEND
      IMPLICIT INTEGER (A-Z)
      DOUBLE PRECISION MATTAR(NROWTAR*NCOLTAR),MATFRM(NROWFRM,NCOLFRM)
      COMMON /MACHSP/ IINTLN,IFLTLN,IINTFP,IALONE,IBITWD
      INDX(I,J)=I+(J-1)*NROWTAR
      ISTART=INDX(IROWTAR,ICOLTAR)
      DO 10 ICOL=1,NCOLFRM
       CALL  DCOPY(NROWFRM,MATFRM(1,ICOL),1,MATTAR(ISTART),1)
       ISTART=ISTART+NROWTAR
10    CONTINUE
      RETURN
      END
